home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #15
/
Monster Media Number 15 (Monster Media)(July 1996).ISO
/
wildcat
/
ctnews54.zip
/
LOGON.ZIP
/
LOGON.WCX
(
.txt
)
< prev
next >
Wrap
Wildcat! WCX
|
1995-06-05
|
2KB
|
137 lines
'! Decompiled with wccNosy version 4.20f (freeware)
'! Input File: in.wcx 1584 bytes 03/09/122 08:28:20am
'! Code Segment Size :1194 bytes
'! Data Segment Size :4814 bytes
'! String Segment Size:390 bytes
'! Compiled with WCC version 4.01
Declare Sub Sub737
Declare Function Func1043(l65534 As Long) As String
Dim dt4463 As DateTime
Dim i4469 As Integer
Dim i4472 As Integer
Dim i4474 As Integer
Dim w4476 As Word
Dim nir4478 As NodeInfoRecord
Dim s4664 As String*79
Dim i4747 As Integer
Dim sr4749 As SearchRec
Dim w4798 As Word
Dim d4800 As Date
Dim t4802 As Time
Dim s4806 As String
Dim s4810 As String
Dim l65532_ As Long
CurrentDateTime dt4463
i4469 = - 1
w4476 = 0
i4472 = Node
i4474 = MaxNode
s4806 = Trim(MakeWild.SysopName)
s4806 = UCase(MakeWild.SysopName)
If Local And User.Name = s4806 Then
CheckMailAtLogon
End
End If
142 If Not FastLogon Then
If Not Local Then
Sub737
End If
170 DisplayGroupFiles
SubText 1, Func1043(NodeInfo.CallerNum)
l65532_ = dt4463.T.Number Div 60
If l65532_ >= 0 And l65532_ <= 719 Then
DisplayPrompt 1365
Else
247 If l65532_ >= 720 And l65532_ <= 1079 Then
DisplayPrompt 1366
Else
287 If l65532_ >= 1080 And l65532_ <= 1440 Then
DisplayPrompt 1367
GoTo 327
End If
End If
End If
327 If FormatDate(dt4463.D, "mm/dd") = FormatDate(User.BirthDate, "mm/dd") Then
If Not DisplayFile("birthday") Then
Beep
Print
Print "Happy birthday @FIRST@!"
End If
392 ActivityLog "Birthday Greeting Displayed"
End If
400 HelloFiles
w4798 = FindFirst(Conference.DisplayPath + "\NEWSLTR.BBS", 0, sr4749)
d4800 = sr4749.Date '! 2 bytes
t4802 = sr4749.Time '! 4 bytes
WaitEnter
If User.LastCall.D.Number <= d4800.Number Then
DisplayFile("NewsLtr")
ActivityLog "Newsletter File Displayed"
End If
502 If Not ANSIDetected Then
s4810 = Conference.DisplayPath + "\NOANSI.BBS"
If Exists(s4810) Then
DisplayTextFile(s4810)
ActivityLog "NO ANSI File Displayed"
End If
End If
564 CheckBulletins
QuoteOfTheDay
CheckMailAtLogon
Else
579 If FastLogonChar <> "!" Then
If Not Local Then
Sub737
End If
612 Print "@00@Command >> @0E@"
CheckMailAtLogon
w4798 = FindFirst(Conference.DisplayPath + "\NEWSLTR.BBS", 0, sr4749)
d4800 = sr4749.Date '! 2 bytes
t4802 = sr4749.Time '! 4 bytes
If User.LastCall.D.Number <= d4800.Number Then
DisplayFile("NewsLtr")
ActivityLog "Newsletter File Displayed"
End If
End If
End If
720 End
'! Called 2 times
Sub Sub737
Do
746 i4469 = i4469 + 1
GetNodeInfo nir4478, i4469
If nir4478.NodeStatus >= 3 And i4469 <> i4472 Then
i4747 = Int(Rnd(100) * 100)
If i4747 <= 33 Then
s4664 = "@0C@*NOTICE*@0B@ " + User.Name + " has just arrived on node " + Str(i4472)
Else
888 If i4747 >= 34 And i4747 <= 66 Then
s4664 = "@0C@HEY!!!@0A@ " + User.Name + " has just logged on to node: " + Str(i4472)
Else
960 s4664 = "@0C@LOOK!!@0D@ " + User.Name + " has just dropped in on node " + Str(i4472) + " !!"
End If
End If
1007 SendPage(i4469, s4664)
End If
1022 Loop Until i4469 >= i4474
End Sub
'! Called 1 time
Function Func1043(l65534 As Long) As String
Dim i65524 As Integer
Dim s65526 As String
s65526 = Str(l65534)
i65524 = Len(s65526) - 2
1082 Do While i65524 > 1
s65526 = Left(s65526, i65524 - 1) + "," + Right(s65526, Len(s65526) - i65524 + 1)
i65524 = i65524 - 3
Loop
1171 Func1043 = s65526
End Function